home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / xeno / XLottery10.lha / XLottery / XLottery.rexx < prev   
OS/2 REXX Batch file  |  1995-08-08  |  800b  |  51 lines
  1. /*
  2. ** XLottery  - A UK National Lottery number picker door for Xenolink
  3. **             ©1995 Ian Forest. This program is XenoWare! - Use it!
  4. **             $VER: XLottery v1.0 ©1995 Ian Forest
  5. */
  6.  
  7. options results
  8.  
  9. CLS
  10. DISPLAYFILE 'DOORS:XLottery/Header.txt'
  11.  
  12. call randu(time('s'))
  13. Ao:
  14. A = Random(1,49)
  15.  
  16. Bo:
  17. Ba = Random(1,49)
  18. If Ba=A then call Bo
  19.  
  20. Co:
  21. C = Random(1,49)
  22. If C=A then call Co
  23. If C=Ba then call Co
  24.  
  25. Do:
  26. D = Random(1,49)
  27. If D=A then call Do
  28. If D=Ba then call Do
  29. If D=C then call Do
  30.  
  31. Eo:
  32. E = Random(1,49)
  33. If E=A then call Eo
  34. If E=Ba then call Eo
  35. If E=C then call Eo
  36. If E=D then call Eo
  37.  
  38. Fo:
  39. F = Random(1,49)
  40. If F=A then call Fo
  41. if F=Ba then call Fo
  42. If F=C then call Fo
  43. If F=D then call Fo
  44. If F=E then call Fo
  45.  
  46. PRINT A'  'Ba'  'C'  'D'  'E'  'F
  47.  
  48. DISPLAYFILE 'DOORS:XLottery/Footer.txt'
  49.  
  50. exit
  51.